object DistrictForm: TDistrictForm
  Tag = 1
  Left = 0
  Top = 0
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1088#1072#1081#1086#1085#1086#1074
  ClientHeight = 494
  ClientWidth = 709
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Ribbon1: TdxRibbon
    Left = 0
    Top = 0
    Width = 709
    Height = 24
    BarManager = MainForm.barmen1
    ColorSchemeName = 'Blue'
    ShowTabGroups = False
    ShowTabHeaders = False
    SupportNonClientDrawing = True
    Contexts = <>
    TabOrder = 0
    TabStop = False
    object Ribbon1Tab1: TdxRibbonTab
      Active = True
      Caption = 'Ribbon1Tab1'
      Groups = <>
      Index = 0
    end
  end
  object lcntr1: TdxLayoutControl
    Left = 0
    Top = 24
    Width = 709
    Height = 470
    Align = alClient
    TabOrder = 1
    TabStop = False
    object grd1: TcxGrid
      Left = 10
      Top = 10
      Width = 250
      Height = 200
      TabOrder = 0
      object v1: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        DataController.DataSource = src_district
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsData.Appending = True
        OptionsView.GroupByBox = False
        object clCode: TcxGridDBColumn
          Caption = #1050#1086#1076
          DataBinding.FieldName = 'Code'
          Options.Editing = False
          Width = 76
        end
        object clName: TcxGridDBColumn
          Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          DataBinding.FieldName = 'Name'
          Width = 495
        end
      end
      object l1: TcxGridLevel
        GridView = v1
      end
    end
    object grp1: TdxLayoutGroup
      AlignHorz = ahClient
      AlignVert = avClient
      ButtonOptions.Buttons = <>
      Hidden = True
      ShowBorder = False
      object Itm_grd1: TdxLayoutItem
        AlignHorz = ahClient
        AlignVert = avClient
        CaptionOptions.Text = 'cxGrid1'
        CaptionOptions.Visible = False
        Control = grd1
        ControlOptions.ShowBorder = False
      end
    end
  end
  object prop1: TcxPropertiesStore
    Components = <
      item
        Component = Owner
        Properties.Strings = (
          'WindowState')
      end>
    StorageName = 'prop1'
    Left = 656
  end
  object ds_District: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SPR$DISTRICT'
      'SET '
      '    NAME = :NAME'
      'WHERE'
      '    CODE = :OLD_CODE'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SPR$DISTRICT'
      'WHERE'
      '        CODE = :OLD_CODE'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SPR$DISTRICT('
      '    CODE,'
      '    NAME'
      ')'
      'VALUES('
      '    :CODE,'
      '    :NAME'
      ')')
    RefreshSQL.Strings = (
      'select CODE, NAME'
      'from SPR$DISTRICT'
      ' WHERE '
      '        SPR$DISTRICT.CODE = :OLD_CODE'
      '    ')
    SelectSQL.Strings = (
      'select CODE, NAME'
      'from SPR$DISTRICT')
    Transaction = dm1.trnRD
    Database = dm1.db1
    UpdateTransaction = dm1.trnWr
    Left = 304
    Top = 80
  end
  object src_district: TDataSource
    DataSet = ds_District
    Left = 331
    Top = 80
  end
end
